home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 September / CHIP Eylül 1998.iso / demolar / lokman / DISK1 / _SETUP.2 / Group1 / Tarihdll.dll / 0 / RCDATA / TBRALIMFORM / TBRALIMFORM.txt
Text File  |  1998-07-24  |  20KB  |  766 lines
  1. object BrAlimForm: TBrAlimForm
  2.   Left = -2
  3.   Top = 8
  4.   ActiveControl = DBGridALIM
  5.   BorderStyle = bsDialog
  6.   Caption = 'ESK∩┐╜   ALIMLAR'
  7.   ClientHeight = 405
  8.   ClientWidth = 635
  9.   Font.Color = clBlack
  10.   Font.Height = -11
  11.   Font.Name = 'MS Sans Serif'
  12.   Font.Style = []
  13.   KeyPreview = True
  14.   Position = poScreenCenter
  15.   OnClose = FormClose
  16.   OnCreate = FormCreate
  17.   PixelsPerInch = 96
  18.   TextHeight = 13
  19.   object Panel2: TPanel
  20.     Left = 0
  21.     Top = 0
  22.     Width = 635
  23.     Height = 405
  24.     HelpContext = 123
  25.     Align = alClient
  26.     BevelInner = bvLowered
  27.     BevelWidth = 2
  28.     Color = clGray
  29.     TabOrder = 0
  30.     object DBGridALIM: TDBGrid
  31.       Left = 4
  32.       Top = 27
  33.       Width = 627
  34.       Height = 207
  35.       Align = alTop
  36.       BorderStyle = bsNone
  37.       Color = clTeal
  38.       DataSource = AlimlarSRC
  39.       Font.Color = clWhite
  40.       Font.Height = -11
  41.       Font.Name = 'Arial Tur'
  42.       Font.Style = [fsBold]
  43.       Options = [dgAlwaysShowEditor, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
  44.       ParentFont = False
  45.       ReadOnly = True
  46.       TabOrder = 1
  47.       TitleFont.Color = clNavy
  48.       TitleFont.Height = -11
  49.       TitleFont.Name = 'Arial Tur'
  50.       TitleFont.Style = [fsBold]
  51.       OnDblClick = BitBtnASECClick
  52.     end
  53.     object BitBtnASEC: TBitBtn
  54.       Left = 407
  55.       Top = 373
  56.       Width = 105
  57.       Height = 25
  58.       Caption = 'Al∩┐╜m Se∩┐╜'
  59.       Default = True
  60.       Font.Color = clNavy
  61.       Font.Height = -12
  62.       Font.Name = 'Arial'
  63.       Font.Style = [fsBold]
  64.       ModalResult = 1
  65.       ParentFont = False
  66.       TabOrder = 6
  67.       OnClick = BitBtnASECClick
  68.       Glyph.Data = {
  69.         78010000424D7801000000000000760000002800000020000000100000000100
  70.         04000000000000000000120B0000120B00000000000000000000000000000000
  71.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  72.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333300000000
  73.         0000333377777777777733330FFFFFFFFFF033337F3FFF3F3FF733330F000F0F
  74.         00F033337F777373773733330FFFFFFFFFF033337F3FF3FF3FF733330F00F00F
  75.         00F033337F773773773733330FFFFFFFFFF033337FF3333FF3F7333300FFFF00
  76.         F0F03333773FF377F7373330FB00F0F0FFF0333733773737F3F7330FB0BF0FB0
  77.         F0F0337337337337373730FBFBF0FB0FFFF037F333373373333730BFBF0FB0FF
  78.         FFF037F3337337333FF700FBFBFB0FFF000077F333337FF37777E0BFBFB000FF
  79.         0FF077FF3337773F7F37EE0BFB0BFB0F0F03777FF3733F737F73EEE0BFBF00FF
  80.         00337777FFFF77FF7733EEEE00000000033377777777777773330000}
  81.       NumGlyphs = 2
  82.     end
  83.     object BitBtnIPT: TBitBtn
  84.       Left = 521
  85.       Top = 373
  86.       Width = 105
  87.       Height = 25
  88.       Cancel = True
  89.       Caption = 'Vazge∩┐╜'
  90.       Font.Color = clNavy
  91.       Font.Height = -12
  92.       Font.Name = 'Arial'
  93.       Font.Style = [fsBold]
  94.       ModalResult = 2
  95.       ParentFont = False
  96.       TabOrder = 7
  97.       OnClick = BitBtnIPTClick
  98.       Glyph.Data = {
  99.         76010000424D7601000000000000760000002800000020000000100000000100
  100.         04000000000000010000130B0000130B00000000000000000000000000000000
  101.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  102.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  103.         333333333333333333333333333333333333333FFF33FF333FFF339993370733
  104.         999333777FF37FF377733339993000399933333777F777F77733333399970799
  105.         93333333777F7377733333333999399933333333377737773333333333990993
  106.         3333333333737F73333333333331013333333333333777FF3333333333910193
  107.         333333333337773FF3333333399000993333333337377737FF33333399900099
  108.         93333333773777377FF333399930003999333337773777F777FF339993370733
  109.         9993337773337333777333333333333333333333333333333333333333333333
  110.         3333333333333333333333333333333333333333333333333333}
  111.       NumGlyphs = 2
  112.     end
  113.     object DBGridALBR: TDBGrid
  114.       Left = 4
  115.       Top = 252
  116.       Width = 627
  117.       Height = 116
  118.       Align = alTop
  119.       Color = clNavy
  120.       DataSource = AlBakSRC
  121.       Font.Color = clWhite
  122.       Font.Height = -11
  123.       Font.Name = 'Arial Tur'
  124.       Font.Style = [fsBold]
  125.       Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
  126.       ParentFont = False
  127.       ReadOnly = True
  128.       TabOrder = 3
  129.       TitleFont.Color = clRed
  130.       TitleFont.Height = -11
  131.       TitleFont.Name = 'Arial Tur'
  132.       TitleFont.Style = [fsBold]
  133.     end
  134.     object Panel1: TPanel
  135.       Left = 4
  136.       Top = 4
  137.       Width = 627
  138.       Height = 23
  139.       Align = alTop
  140.       BevelInner = bvLowered
  141.       BevelWidth = 2
  142.       Caption = 'ESK∩┐╜ ALI∩┐╜LAR L∩┐╜STES∩┐╜'
  143.       Color = clGray
  144.       Font.Color = clWhite
  145.       Font.Height = -12
  146.       Font.Name = 'Arial'
  147.       Font.Style = [fsBold]
  148.       ParentFont = False
  149.       TabOrder = 0
  150.     end
  151.     object Panel3: TPanel
  152.       Left = 4
  153.       Top = 234
  154.       Width = 627
  155.       Height = 18
  156.       Align = alTop
  157.       BevelInner = bvLowered
  158.       Caption = 'ESK∩┐╜   ALI∩┐╜    ∩┐╜∩┐╜ER∩┐╜∩┐╜∩┐╜ '
  159.       Color = clGray
  160.       Font.Color = clWhite
  161.       Font.Height = -11
  162.       Font.Name = 'Arial'
  163.       Font.Style = [fsBold]
  164.       ParentFont = False
  165.       TabOrder = 2
  166.     end
  167.     object BitBtnSIL: TBitBtn
  168.       Left = 7
  169.       Top = 373
  170.       Width = 74
  171.       Height = 25
  172.       Caption = 'Al∩┐╜∩┐╜ &Sil'
  173.       Font.Color = clNavy
  174.       Font.Height = -12
  175.       Font.Name = 'Arial'
  176.       Font.Style = [fsBold]
  177.       ParentFont = False
  178.       TabOrder = 4
  179.       OnClick = BitBtnSILClick
  180.       Glyph.Data = {
  181.         78010000424D7801000000000000760000002800000020000000100000000100
  182.         04000000000000000000120B0000120B00000000000000000000000000000000
  183.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  184.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
  185.         55555FFFFFFF5F55FFF5777777757559995777777775755777F7555555555550
  186.         305555555555FF57F7F555555550055BB0555555555775F777F55555550FB000
  187.         005555555575577777F5555550FB0BF0F05555555755755757F555550FBFBF0F
  188.         B05555557F55557557F555550BFBF0FB005555557F55575577F555500FBFBFB0
  189.         B05555577F555557F7F5550E0BFBFB00B055557575F55577F7F550EEE0BFB0B0
  190.         B05557FF575F5757F7F5000EEE0BFBF0B055777FF575FFF7F7F50000EEE00000
  191.         B0557777FF577777F7F500000E055550805577777F7555575755500000555555
  192.         05555777775555557F55550005555555055555777555555575550000}
  193.       NumGlyphs = 2
  194.       Spacing = 7
  195.     end
  196.     object BitBtn1: TBitBtn
  197.       Left = 293
  198.       Top = 373
  199.       Width = 105
  200.       Height = 25
  201.       Caption = 'Fatura &Tarihi Ara'
  202.       Font.Color = clNavy
  203.       Font.Height = -12
  204.       Font.Name = 'Arial'
  205.       Font.Style = [fsBold]
  206.       ParentFont = False
  207.       TabOrder = 5
  208.       OnClick = BitBtn1Click
  209.     end
  210.     object BtnBIR: TBitBtn
  211.       Left = 146
  212.       Top = 373
  213.       Width = 137
  214.       Height = 25
  215.       Caption = '∩┐╜&rsaliyeleri Faturala∩┐╜t∩┐╜r'
  216.       Font.Color = clNavy
  217.       Font.Height = -12
  218.       Font.Name = 'Arial'
  219.       Font.Style = [fsBold]
  220.       ParentFont = False
  221.       TabOrder = 8
  222.       OnClick = BtnBIRClick
  223.     end
  224.     object BtnFILITRE: TBitBtn
  225.       Left = 88
  226.       Top = 373
  227.       Width = 50
  228.       Height = 25
  229.       Caption = '&Filitre'
  230.       Font.Color = clNavy
  231.       Font.Height = -12
  232.       Font.Name = 'Arial'
  233.       Font.Style = [fsBold]
  234.       ParentFont = False
  235.       TabOrder = 9
  236.       OnClick = BtnFILITREClick
  237.     end
  238.   end
  239.   object PanelBUL: TPanel
  240.     Left = 301
  241.     Top = 262
  242.     Width = 163
  243.     Height = 103
  244.     BevelInner = bvLowered
  245.     BorderWidth = 3
  246.     Caption = 'PanelBUL'
  247.     Color = clBlack
  248.     TabOrder = 1
  249.     Visible = False
  250.     object Label1: TLabel
  251.       Left = 44
  252.       Top = 8
  253.       Width = 71
  254.       Height = 15
  255.       Caption = 'Fatura Tarihi'
  256.       Font.Color = clWhite
  257.       Font.Height = -12
  258.       Font.Name = 'Arial Tur'
  259.       Font.Style = [fsBold]
  260.       ParentFont = False
  261.     end
  262.     object Label2: TLabel
  263.       Left = 44
  264.       Top = 48
  265.       Width = 85
  266.       Height = 18
  267.       Caption = 'olan al∩┐╜∩┐╜lar∩┐╜ bul'
  268.       Font.Color = clWhite
  269.       Font.Height = -12
  270.       Font.Name = 'Arial Tur'
  271.       Font.Style = [fsBold]
  272.       ParentFont = False
  273.     end
  274.     object MaskEdit1: TMaskEdit
  275.       Left = 44
  276.       Top = 24
  277.       Width = 69
  278.       Height = 22
  279.       EditMask = '!99/99/9999;1;_'
  280.       Font.Color = clBlack
  281.       Font.Height = -11
  282.       Font.Name = 'Arial Tur'
  283.       Font.Style = []
  284.       MaxLength = 10
  285.       ParentFont = False
  286.       TabOrder = 0
  287.       Text = '  .  .    '
  288.       OnExit = MaskEdit1Exit
  289.     end
  290.     object Button1: TButton
  291.       Left = 10
  292.       Top = 70
  293.       Width = 65
  294.       Height = 23
  295.       Caption = '&Tamam'
  296.       Font.Color = clBlack
  297.       Font.Height = -11
  298.       Font.Name = 'Arial'
  299.       Font.Style = [fsBold]
  300.       ParentFont = False
  301.       TabOrder = 1
  302.       OnClick = Button1Click
  303.     end
  304.     object Button2: TButton
  305.       Left = 89
  306.       Top = 70
  307.       Width = 65
  308.       Height = 23
  309.       Caption = '&Vazge∩┐╜'
  310.       Font.Color = clBlack
  311.       Font.Height = -11
  312.       Font.Name = 'Arial'
  313.       Font.Style = [fsBold]
  314.       ParentFont = False
  315.       TabOrder = 2
  316.       OnClick = Button2Click
  317.     end
  318.   end
  319.   object PanelFILITRE: TPanel
  320.     Left = 13
  321.     Top = 213
  322.     Width = 187
  323.     Height = 157
  324.     BevelInner = bvLowered
  325.     BorderWidth = 3
  326.     Color = clNavy
  327.     TabOrder = 3
  328.     Visible = False
  329.     object Label7: TLabel
  330.       Left = 5
  331.       Top = 5
  332.       Width = 177
  333.       Height = 14
  334.       Align = alTop
  335.       Alignment = taCenter
  336.       Caption = 'F∩┐╜L∩┐╜TRELE'
  337.       Color = clRed
  338.       Font.Color = clWhite
  339.       Font.Height = -11
  340.       Font.Name = 'Arial'
  341.       Font.Style = [fsBold]
  342.       ParentColor = False
  343.       ParentFont = False
  344.       WordWrap = True
  345.     end
  346.     object Label8: TLabel
  347.       Left = 12
  348.       Top = 24
  349.       Width = 61
  350.       Height = 15
  351.       Caption = 'Depo Kodu'
  352.       Font.Color = clWhite
  353.       Font.Height = -12
  354.       Font.Name = 'Arial Tur'
  355.       Font.Style = [fsBold]
  356.       ParentFont = False
  357.     end
  358.     object ButtonFilitre: TButton
  359.       Left = 10
  360.       Top = 125
  361.       Width = 80
  362.       Height = 23
  363.       Caption = '&Filitrele'
  364.       Font.Color = clBlack
  365.       Font.Height = -11
  366.       Font.Name = 'Arial'
  367.       Font.Style = [fsBold]
  368.       ParentFont = False
  369.       TabOrder = 2
  370.       OnClick = ButtonFilitreClick
  371.     end
  372.     object ButtonFKal: TButton
  373.       Left = 96
  374.       Top = 125
  375.       Width = 80
  376.       Height = 23
  377.       Caption = 'Filitreyi &Kald∩┐╜r'
  378.       Font.Color = clBlack
  379.       Font.Height = -11
  380.       Font.Name = 'Arial'
  381.       Font.Style = [fsBold]
  382.       ParentFont = False
  383.       TabOrder = 3
  384.       OnClick = ButtonFKalClick
  385.     end
  386.     object EditKRM: TEdit
  387.       Left = 78
  388.       Top = 22
  389.       Width = 85
  390.       Height = 22
  391.       Font.Color = clBlack
  392.       Font.Height = -11
  393.       Font.Name = 'Arial'
  394.       Font.Style = [fsBold]
  395.       ParentFont = False
  396.       TabOrder = 0
  397.     end
  398.     object RadioGrpFIL: TRadioGroup
  399.       Left = 17
  400.       Top = 48
  401.       Width = 150
  402.       Height = 68
  403.       Caption = 'Al∩┐╜m T∩┐╜r∩┐╜'
  404.       Color = clSilver
  405.       Font.Color = clBlack
  406.       Font.Height = -11
  407.       Font.Name = 'Arial'
  408.       Font.Style = [fsBold]
  409.       ItemIndex = 0
  410.       Items.Strings = (
  411.         'Faturas∩┐╜z ∩┐╜rsaliyeler'
  412.         '∩┐╜rsaliyeli Fatura'
  413.         '∩┐╜rsaliyesiz Fatura '
  414.         'T∩┐╜m∩┐╜')
  415.       ParentColor = False
  416.       ParentFont = False
  417.       TabOrder = 1
  418.     end
  419.   end
  420.   object PanelBIRIR: TPanel
  421.     Left = 130
  422.     Top = 215
  423.     Width = 169
  424.     Height = 155
  425.     BevelInner = bvLowered
  426.     BorderWidth = 3
  427.     Color = clPurple
  428.     TabOrder = 2
  429.     Visible = False
  430.     object Label3: TLabel
  431.       Left = 12
  432.       Top = 55
  433.       Width = 71
  434.       Height = 15
  435.       Caption = 'Fatura Tarihi'
  436.       Font.Color = clWhite
  437.       Font.Height = -12
  438.       Font.Name = 'Arial Tur'
  439.       Font.Style = [fsBold]
  440.       ParentFont = False
  441.     end
  442.     object Label4: TLabel
  443.       Left = 5
  444.       Top = 5
  445.       Width = 159
  446.       Height = 42
  447.       Align = alTop
  448.       Alignment = taCenter
  449.       Caption = 
  450.         'Se∩┐╜ili Faturas∩┐╜z ∩┐╜rsaliyeleri A∩┐╜a∩┐╜∩┐╜daki Fat.No ve Tarihle Birle∩┐╜' +
  451.         'tirip Faturala∩┐╜t∩┐╜r.'
  452.       Color = clRed
  453.       Font.Color = clWhite
  454.       Font.Height = -11
  455.       Font.Name = 'Arial'
  456.       Font.Style = [fsBold]
  457.       ParentColor = False
  458.       ParentFont = False
  459.       WordWrap = True
  460.     end
  461.     object Label5: TLabel
  462.       Left = 12
  463.       Top = 76
  464.       Width = 51
  465.       Height = 14
  466.       Caption = 'Fatura No'
  467.       Font.Color = clWhite
  468.       Font.Height = -11
  469.       Font.Name = 'Arial'
  470.       Font.Style = [fsBold]
  471.       ParentFont = False
  472.     end
  473.     object MaskEditFT: TMaskEdit
  474.       Left = 86
  475.       Top = 52
  476.       Width = 69
  477.       Height = 22
  478.       EditMask = '!99/99/9999;1;_'
  479.       Font.Color = clBlack
  480.       Font.Height = -11
  481.       Font.Name = 'Arial'
  482.       Font.Style = [fsBold]
  483.       MaxLength = 10
  484.       ParentFont = False
  485.       TabOrder = 0
  486.       Text = '  .  .    '
  487.       OnExit = MaskEdit1Exit
  488.     end
  489.     object ButtonBIR: TButton
  490.       Left = 12
  491.       Top = 122
  492.       Width = 65
  493.       Height = 23
  494.       Caption = '&Tamam'
  495.       Font.Color = clBlack
  496.       Font.Height = -11
  497.       Font.Name = 'Arial'
  498.       Font.Style = [fsBold]
  499.       ParentFont = False
  500.       TabOrder = 2
  501.       OnClick = ButtonBIRClick
  502.     end
  503.     object Buttonvaz: TButton
  504.       Left = 89
  505.       Top = 122
  506.       Width = 65
  507.       Height = 23
  508.       Caption = '&Vazge∩┐╜'
  509.       Font.Color = clBlack
  510.       Font.Height = -11
  511.       Font.Name = 'Arial'
  512.       Font.Style = [fsBold]
  513.       ParentFont = False
  514.       TabOrder = 3
  515.       OnClick = ButtonvazClick
  516.     end
  517.     object EditFatNo: TEdit
  518.       Left = 11
  519.       Top = 92
  520.       Width = 140
  521.       Height = 22
  522.       Font.Color = clBlack
  523.       Font.Height = -11
  524.       Font.Name = 'Arial'
  525.       Font.Style = [fsBold]
  526.       ParentFont = False
  527.       TabOrder = 1
  528.     end
  529.   end
  530.   object AlimlarSRC: TDataSource
  531.     DataSet = AlimlarTAB
  532.     Left = 311
  533.     Top = 69
  534.   end
  535.   object AlBakTAB: TTable
  536.     BeforeDelete = AlBakTABBeforeDelete
  537.     OnCalcFields = AlBakTABCalcFields
  538.     DatabaseName = 'ECZ'
  539.     IndexFieldNames = 'ALISNO'
  540.     MasterFields = 'ALISNO'
  541.     MasterSource = AlimlarSRC
  542.     TableName = 'ALIS3.DB'
  543.     Left = 416
  544.     Top = 224
  545.     object AlBakTABSIRANOILAC: TIntegerField
  546.       DisplayLabel = 'S∩┐╜ra No'
  547.       DisplayWidth = 6
  548.       FieldName = 'SIRANOILAC'
  549.     end
  550.     object AlBakTABILACNO: TIntegerField
  551.       Alignment = taLeftJustify
  552.       DisplayLabel = '∩┐╜r∩┐╜n Ad∩┐╜'
  553.       DisplayWidth = 36
  554.       FieldName = 'ILACNO'
  555.       OnGetText = AlBakTABILACNOGetText
  556.     end
  557.     object AlBakTABFIYAT: TCurrencyField
  558.       DisplayLabel = 'Fiyat∩┐╜'
  559.       DisplayWidth = 15
  560.       FieldName = 'FIYAT'
  561.     end
  562.     object AlBakTABMIKTAR: TIntegerField
  563.       DisplayLabel = 'Miktar'
  564.       DisplayWidth = 6
  565.       FieldName = 'MIKTAR'
  566.     end
  567.     object AlBakTABTutar: TCurrencyField
  568.       Calculated = True
  569.       DisplayWidth = 16
  570.       FieldName = 'Tutar'
  571.     end
  572.     object AlBakTABALISNO: TFloatField
  573.       Alignment = taLeftJustify
  574.       DisplayLabel = 'Al∩┐╜∩┐╜ No'
  575.       DisplayWidth = 10
  576.       FieldName = 'ALISNO'
  577.       Visible = False
  578.     end
  579.     object AlBakTABKDV: TFloatField
  580.       DisplayWidth = 7
  581.       FieldName = 'KDV'
  582.       DisplayFormat = '%0.00'
  583.     end
  584.     object AlBakTABMALFAZLA: TSmallintField
  585.       DisplayLabel = 'Mal Fzl.'
  586.       DisplayWidth = 7
  587.       FieldName = 'MALFAZLA'
  588.     end
  589.     object AlBakTABALISTARIH: TDateTimeField
  590.       DisplayLabel = 'Ali∩┐╜ Trh.'
  591.       FieldName = 'ALISTARIH'
  592.       DisplayFormat = 'dd/mm/yy'
  593.     end
  594.   end
  595.   object AlBakSRC: TDataSource
  596.     DataSet = AlBakTAB
  597.     Left = 448
  598.     Top = 224
  599.   end
  600.   object urunBTAB: TTable
  601.     DatabaseName = 'ECZ'
  602.     TableName = 'URUN.DB'
  603.     Left = 56
  604.     Top = 104
  605.     object urunBTABILACNO: TIntegerField
  606.       FieldName = 'ILACNO'
  607.     end
  608.     object urunBTABILACAD: TStringField
  609.       FieldName = 'ILACAD'
  610.       Required = True
  611.       Size = 36
  612.     end
  613.     object urunBTABMIKTAR: TIntegerField
  614.       FieldName = 'MIKTAR'
  615.     end
  616.   end
  617.   object QhrkUYARI: TQuery
  618.     DatabaseName = 'ECZ'
  619.     Params.Data = {01000100055541734E6F0006080000000000000000000000}
  620.     SQL.Strings = (
  621.       'SELECT '
  622.       'HAREKET.CARIKOD,'
  623.       'HAREKET.ALACAK'
  624.       'FROM HAREKET'
  625.       'WHERE   (ALSATNO=:UAsNo) AND (ALSAT='#39'A'#39') AND'
  626.       '(NIHAI<>1)')
  627.     Top = 304
  628.     object QhrkUYARICARIKOD: TStringField
  629.       FieldName = 'CARIKOD'
  630.       Size = 11
  631.     end
  632.     object QhrkUYARIALACAK: TCurrencyField
  633.       FieldName = 'ALACAK'
  634.     end
  635.   end
  636.   object QHRKSIL: TQuery
  637.     DatabaseName = 'ECZ'
  638.     Params.Data = {010001000441734E6F0006080000000000000000000000}
  639.     SQL.Strings = (
  640.       'DELETE FROM HAREKET'
  641.       'WHERE  (ALSAT='#39'A'#39') AND (ALSATNO=:AsNo)')
  642.     Left = 8
  643.     Top = 272
  644.   end
  645.   object KrmBorcSil: TTable
  646.     DatabaseName = 'ECZ'
  647.     TableName = 'KRMLAR.DB'
  648.     Left = 120
  649.     Top = 272
  650.     object KrmBorcSilKOD: TStringField
  651.       FieldName = 'KOD'
  652.       Required = True
  653.       Size = 11
  654.     end
  655.     object KrmBorcSilALACAK: TCurrencyField
  656.       FieldName = 'ALACAK'
  657.     end
  658.   end
  659.   object QueryBUL: TQuery
  660.     DatabaseName = 'ECZ'
  661.     Params.Data = {0100010005616C746172000B080000000000000000000000}
  662.     SQL.Strings = (
  663.       'SELECT '
  664.       'ALIS1.ALISNO,'
  665.       'ALIS1.FATARIH'
  666.       'FROM ALIS1'
  667.       'WHERE FATARIH>=:altar'
  668.       'ORDER BY FATARIH')
  669.     Left = 368
  670.     Top = 248
  671.     object QueryBULALISNO: TFloatField
  672.       FieldName = 'ALISNO'
  673.     end
  674.   end
  675.   object UrunHrkSTab: TTable
  676.     DatabaseName = 'ECZ'
  677.     IndexFieldNames = 'ILACNO;GCTARIH;ALSATNO;SIRANO'
  678.     MasterFields = 'ILACNO;ALISTARIH;ALISNO;SIRANOILAC'
  679.     MasterSource = AlBakSRC
  680.     TableName = 'URUNHRK.DB'
  681.     Left = 24
  682.     Top = 248
  683.     object UrunHrkSTabGCTARIH: TDateTimeField
  684.       DisplayWidth = 15
  685.       FieldName = 'GCTARIH'
  686.     end
  687.     object UrunHrkSTabILACNO: TIntegerField
  688.       DisplayWidth = 10
  689.       FieldName = 'ILACNO'
  690.     end
  691.     object UrunHrkSTabALSATNO: TFloatField
  692.       DisplayWidth = 10
  693.       FieldName = 'ALSATNO'
  694.     end
  695.     object UrunHrkSTabSIRANO: TIntegerField
  696.       DisplayWidth = 10
  697.       FieldName = 'SIRANO'
  698.     end
  699.     object UrunHrkSTabGIRMIK: TIntegerField
  700.       FieldName = 'GIRMIK'
  701.     end
  702.   end
  703.   object AlimlarTAB: TTable
  704.     DatabaseName = 'ECZ'
  705.     TableName = 'alis1.db'
  706.     Left = 276
  707.     Top = 69
  708.     object AlimlarTABKRMKOD: TStringField
  709.       DisplayLabel = 'Cari  Ad∩┐╜'
  710.       DisplayWidth = 11
  711.       FieldName = 'KRMKOD'
  712.       Size = 11
  713.     end
  714.     object AlimlarTABFATARIH: TDateField
  715.       DisplayLabel = 'Fat.Trh.'
  716.       DisplayWidth = 8
  717.       FieldName = 'FATARIH'
  718.       DisplayFormat = 'dd/mm/yy'
  719.     end
  720.     object AlimlarTABFATNO: TStringField
  721.       DisplayLabel = 'Fatura No'
  722.       DisplayWidth = 14
  723.       FieldName = 'FATNO'
  724.       Size = 15
  725.     end
  726.     object AlimlarTABBRUT: TCurrencyField
  727.       DisplayLabel = 'Br∩┐╜t'
  728.       DisplayWidth = 17
  729.       FieldName = 'BRUT'
  730.     end
  731.     object AlimlarTABNET: TCurrencyField
  732.       DisplayLabel = 'Net Tutar'
  733.       DisplayWidth = 17
  734.       FieldName = 'NET'
  735.     end
  736.     object AlimlarTABVADE: TDateField
  737.       DisplayLabel = 'Vade '
  738.       DisplayWidth = 8
  739.       FieldName = 'VADE'
  740.       DisplayFormat = 'dd/mm/yy'
  741.     end
  742.     object AlimlarTABIRSTARIH: TDateField
  743.       DisplayLabel = '∩┐╜rsl.Trh'
  744.       DisplayWidth = 8
  745.       FieldName = 'IRSTARIH'
  746.       DisplayFormat = 'dd/mm/yy'
  747.     end
  748.     object AlimlarTABIRSALNO: TStringField
  749.       DisplayLabel = '∩┐╜rsaliye No'
  750.       DisplayWidth = 12
  751.       FieldName = 'IRSALNO'
  752.       Size = 15
  753.     end
  754.     object AlimlarTABALISNO: TFloatField
  755.       DisplayLabel = 'Al∩┐╜∩┐╜ No'
  756.       DisplayWidth = 9
  757.       FieldName = 'ALISNO'
  758.     end
  759.     object AlimlarTABACIKLAMA: TStringField
  760.       DisplayLabel = 'A∩┐╜∩┐╜klama'
  761.       FieldName = 'ACIKLAMA'
  762.       Size = 95
  763.     end
  764.   end
  765. end
  766.